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58 
59 
60 
61 
62 
63 
64 
65 



001546 
001550 
001552 
001554 
001556 
001560 



012600 
012604 
012603 
012602 
01260.1 
000207 



9$: 



F i 1) i & h e d 

MOV 
MOV 
MOV 
MOV 
MOV 



<SP)+, RO 
<SP)+, R4 
<SP)+, R3 
< SP ) +, R2 
(SP)+>R1 



; Get message length 



RETURN 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
3t> 
36 
37 
33 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



000000 
000000 



0520'; 



000002 
000004 
000006 
000010 
000012 



000001 
OOOOOP 
000003 
000004 
OOOOOfj 



000000 
000000 
000000 
000000 



TITLE TSriSG 

ENABL LC 

DSABL GBL 

ENABL AMA 



rSX-Plus Message Transfer System 



Copyritjht <c) 1977,1970,1979,1980,1981,1982,1983,1984. 

S&H Computer Systems, Int. 
Nashville, Tennessee 

The routines in this module implement the TSX-Plus interjob 
messaqe communication system. 



rSMSO: 



CSECT 
RAD50 



TSMSG 
/MSG/ 



System overlay ID 



Global definitions 



GLOBL MSEND, MSGCK, MSQWT, TSMSG 
GLOBL MSGINI , M^30T0P, MSGABT, MBMHD 



Glohal references 



GLOBL MB*BUF, MB^^FLK 

GLOBL CCRUSR, MR$LNK 

GLOBL MB$NAM, PUTUCH 

GLOBL MB*REQ, MU^fiSl Z 

GLOBL MB*$SZ, CHKABT 

GLOBL MU«TXT, VMSCHR 

GLOBL LPR I , VMXMRB, L 

GLOBL MR$UBA, MR*UBS 

GLOBL KP AR 5. CO«P At 



EMTBLK, VMAXMC, EB$BUF, EB*RTN 
MR* JOB, MB*FLK, MR*RTN, QF*SCR 
S*HICP, EB*NAM, GETUCH, S^IOFN 
OCOMPL, LITIME, GETQ, CQ^PRI 
INTERR, QHDSPN, EBIiSIZ, CQ*RO 
QHIPRI, URO, CQ*RTN, VPAR6, CQ*FLG 

PRl, S*MSWT, MRf.$SZ, MR*BUF, VMXMSG 
LSTATE, CQIiRNS, MU*FLK, LCMGHD, CQ*JOB 

MU*JO0, CQ*R1, CQ*CP, CP*STD 



Symbolic equates for LMT error codes 



ERROl 


r~ 


1 


ERR02 


.-.i 


2 


ERR03 


;::= 


3 


ERR04 


::= 


4 


ERR05 


::=: 


5 


i Dat. 


3 areas 




f 

MBMHD: 


. WORD 





MCBFHD 


. WORD 





MRBFHD 


. WORD 





MTBFHD 


. WORD 





CHNNAM 


. BLKW 


3 



j Al 1 message channels are busy 

j No free message qutjue entries 

i No message was queued on specified channel 

i Message was longer than specified buffer 

.: No free message request blocks 



List head of active message channel blocks 

List of free message channel blocks 

List of free message request blocks 

List of free message text blocks 

Used to hold channel name string 



( 
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4 








5 








6 
7 








8 


000020 


010246 




9 


000022 


010346 




10 


000024 


010446 




11 
IP 
13 


000026 


010546 










14 








15 
16 


000030 


012702 


002412' 


17 
18 








19 


000034 


010237 


000004 •■ 


20 


000040 


013700 


0000000 


21 


000044 


010203 




22 


000046 


062703 


OOOOOOG 


23 


000052 


010362 


0000000 


24 


000056 


010302 




25 


000060 


077007 




26 
27 
28 


000062 


005062 


ooooooc 








29 








30 


000066 


013700 


0000000 


31 


000072 


00 1 4 1 3 




32 


000074 


010237 


000006 ' 


33 


000100 


010203 




34 


000102 


062703 


0000000 


35 


000106 


010362 


0000000 


36 


000112 


010302 




37 


000114 


077007 




38 


000116 


005062 


ooooooc 


39 








40 








41 








42 


000122 


013700 


OOOOOOG 


43 


000126 


001433 




44 


000130 


005037 


OOOOOOG 


45 


000134 


010237 


000010' 


46 


000140 


013704 


OOOOOOG 


47 


000144 


062704 


00000 IG 


48 


000150 


042704 


000001 


49 


000154 


012705 


OOOOOOG 


50 


000160 


160405 




51 


000162 


160405 




52 


000164 


010203 




53 


000166 


060403 




54 


000170 


020305 




55 


000172 


103006 




56 


000174 


005237 


OOOOOOG 


57 


000200 


010362 


OOOOOOG 



. SBTTL HSGINl — Messafje system initialization 

MSGJNI is called during BystDm initialization to initialize the 
data areas used for messafje communication. 

The message tables are allocated within this system overlay 
starting just beyond the end of the code. 



MSGINI: MOV 
MOV 
MOV 



R2> -(SP) 
R3.. ~<SP> 
R4, -<SP> 
R5. -(SP) 



St.'art data areas above top of code 

MOV #MSGT0P»R2 ; Get address above top of code 



Allocate message channel blocks 



1$: 



MOV 
MOV 
MOV 
ADD 
MOV 
MOV 
BOB 
CLR 



R2. MCBFHD 
VMAXMC, RO 
R2.. R3 
#MB**S2>R3 

R3. mb*flh<r;:') 

R3. R2 
RO, 1* 



Set pointer to Ist free message channel blk 

Get # blocks to allocate 

Get address of current block 

Get address of next block 

Set pointer to next block 

Get address of next block 

Loop if need to allocate more 



MB*FLK-MB**SZ<R2); Clear link in last block 



Allocate message request blocks 



2*: 



MOV 
BEQ 
MOV 
MOV 
ADD 
MOV 
MOV 
SOB 
CLR 



VMXMRB, RO 

3* 

R2> MRBFHD 

R2, R3 

#MR**SZ,R3 

R3, MR*LNK<R2) 

R3/ Rd 

RO, 2* 



i Get # to allocate 
j Br if none needed 
; Set pointer to 1st 
; Get address 
;Get address 
; Set pointer 
iGet address 
;Loop if need 



of 
of 
to 
of 



free block 
current block 
next block 
next block 
next block 



to allocate more 



MR*LNK~MR*i&SZ<R2).! Clear link in last block 



Allocate message text blocks 



3$: 



4$: 



MOV VMXMSG, RO 

BEQ 9* 

CLR VMXMSG 

MOV R2, MTBFHD 

MOV VMSCHR, R4 

ADD #<MU*TX"r+l>, R4 

BIC #1,R4 

MOV #VPAR6, R5 

SUB R4, R5 

SUB R4, R5 

MOV R2, R3 

ADD R4, R3 

CMP R3, R5 

BHIS 6* 

INC VMXMSG 

MOV R3, MU*FLK(R2) 



Get # buffers to allocate 
Br if none wanted 
Count actual buffers allocated 
Set pointer to Ist free block 
Get space needed for message text 
Add space for message header 
Make sure size is even 

Get highest legal address for data areas 
iReduce by size of a block 

Get address of current block 
Get address of next block 
Would this block overflow? 
Br if yes 

Count another actual block 
Set link to next block 



€ 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 



000204 
000206 
000210 
000212 



010302 
077012 
160403 
005063 



6$: 



OOOOOOG 



000216 012605 

000220 012604 

000222 012603 

000224 012602 

000226 000207 



7*: 



MOV 


R3, R2 


SOB 


RO, 4* 


SUB 


R4>R3 


CLR 


MU*FLK<R3) 


Finished 




MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





i Oet address of next block 
jLoop if more to allocate 
;Get address of last block 
; Say it is at end of list 



004737 
103007 



001562' 



004737 002152 

103004 

112737 000001 

000453 
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3 

4 

5 

6 

7 

8 000230 

9 
10 
11 
12 

13 000230 

14 000234 
15 

16 
17 
IS 

19 000236 

20 000242 

21 000244 

22 000252 
23 

24 
25 
26 

27 000254 

28 000260 

29 000262 

30 000270 

31 000274 
32 

33 
34 
35 
36 
37 

38 000276 

39 000300 

40 000304 

41 000306 

42 000310 

43 000312 

44 000316 

45 000320 
46 

47 

48 

49 000322 

50 

51 

52 

53 000330 

54 000334 

55 000340 

56 000342 

57 000350 
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. BBTTL MSEND -- Queue a message 

The message send EM T is vaefi to queue a message for another job. 

}. n p u t s : 
RO = Address of EMT argument block. 

MSEND; 

See if there is an existing message channel block for the specified 
me&sage channel. 



CALL 
BCC 



MBSRCH 

1* 



J Search for existing message channel block 
.: Br if found existing message channel block 



0000000 



CALL 


GETMCB 


BCC 


1* 


MOVB 


«ERR03, I NT ERR 


BR 


20* 



004737 002242 

103006 

1 1 2737 000002 

004737 

000442 



1*: 



OOOOOOG 



There is no existing mecsage channel block for this message channel. 
Create a new message charmel block. 

j Oet a new message channel block 
i Br if got a message channel block 
; Return error 1 



At this point/ R2 contains the address of the message channel block. 
Create a message text block. 

; Get a message text block 
i Br if got one 
; Return error # 2 

i Free the MCB we got if it is idle 
0« 

At this point/ 

R2 = Address of message control block. 

R4 =■ Address of message text block 
Link the new message text block onto the list for the message channel. 



CALL 


GETMTB 


BCC 


3* 


MOVB 


#ERR02/ INTERR 


CALL 


FREMCB 


BR 


20* 



010205 
062705 
005715 
00 1 404 
011505 
062705 
000772 
010415 



OOOOOOG 



OOOOOOG 



3*: MOV R2/ R5 

ADD #MB*BUF, R5 

4*: TST (R5) 

BEQ 5* 

MOV (R5),R5 

ADD #MU«FLK, R5 

BR 4* 

MOV R4, (R5) 



5*: 



/Get address of message control block 

;Point to cell with addr of Ist text block 

/Is there another text block on chain? 

/Br if reached end of chain 

iChain forward to next text block 

/Point to cell with forward link in text blk 

/Continue following chain 

/Add new message text block to end of chain 



113764 OOOOOOG OOOOOOG 



013705 
020537 
101405 
1 1 2737 
013705 



OOOOOOC 
OOOOOOG 

000004 
OOOOOOG 



OOOOOOG 



Save job index number of job sending the message in message text block 

MOVB CORUSR/ MU*J0B<R4)/ Save index # of job sending message 

Move the message text from the user's buffer into the message text buffer 

MOV EMTBLK+EB*S12>R5/ Get si7e of user's message 

CMP R5/VMSCHR ils it longer than buffer space? 

BLOS 6« ; Br if length ok 

MOVB #ERR04/ INTERR /Return error code 4 if message is too long 

MOV VMSCHR/ R5 ; Truncate message length 



t 
f 
I 
i 
i 
I 

c 

€ 

I 

C 

c 

I 

i 
1 
( 
1 

i 
4 
( 



TSHSG — 


- TSX-Pl 


us Me SCO 


ge Trans 


MSEND - 


— Queue 


a mesBa 


cje 


58 


000354 


010564 


OOOOOOG 


59 


000360 


001406 




60 


000362 


062704 


OOOOOOG 


61 


000366 


013703 


OOOOOOC 


62 


000372 


004737 


001346' 


63 








64 








65 








66 








67 








68 








69 








70 


000376 


004737 


000672 ' 


71 








72 








73 








74 


000402 


000207 
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6*: MOV R5, MU*SIZ<F<4) ; Set message size in message text block 

BEQ 7* ; Br if message length is zero 

ADD #MU$TXT, R4 ; Point to start of message text buffer 

MOV EMTBLK+EB*BUF, R3i Oet address of user's message buffer 

CALL MSGGET .: Get message into buffer 

We have created a message control block and a messate text block 
and added the message text block to the end of the list of pending 
messages for the message channel. 

Now call routine to see if any users are waiting for a message on 
this message channel. 



7*: CALL 
Finished 



MSGACT 



; Try to activate any waiting user* 



?0* : 



RETURN 



TSHSO — 
MSeCK - 

1 
2 
3 
4 
5 
6 
7 

e 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
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000404 



000404 004737 001562' 
000410 103403 



000412 005762 
000416 001006 



0000000 



. SBTTL MSOCK 



Chc?ck for pending message 



The me&sage check EM! is used to determine if a message is pending 
on a message channel. If there is a message^ the message is passed 
to the user. If there is no messaqej an error return occurs. 



MSOCK: 

i See if there is an existing message channel block 



CALL 
BCS 



MBSRCH 
1« 



;Search for existing message channel block 
i Br if no messages 



There is an existing message channel block. 

See if there are any pending messages for this channel. 



TST MB*BUF(Ri"'.> 
BWE MSGWT 



;Are there any pending messages? 
; Br if yes — Go move 1st to user 



000420 112737 000003 0000000 1$: 
000426 005037 OOOOOOG 
000432 000207 



There are no pending mef>&ages. 

Return error code 3. 

MOVE #ERR03, IWTERR ; 

CLR URO 

RETURN 



; Return error code 3 

; San messaqe lenqth ~ 



TSMSG — TSX-P 
MStJWT — Wait 

.1. 

2 

3 

4 

5 

6 000434 

7 

a 

9 
10 

11 000434 

12 000440 
13 

14 
15 
16 

17 000442 

18 000446 
19 

20 
21 



lus MesGacic TranB 
for a messaqe 
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105737 OOOOOOG 
001063 



004737 001562' 
103007 



24 

25 



000450 
000454 
000456 

26 000464 

27 

28 

29 

30 000466 

31 000472 
32 

33 
34 

35 000474 

36 000502 

37 000506 
38 

39 

40 

41 

42 

43 

44 

45 000510 

46 

47 

4S 

49 000514 

50 000520 

51 000524 

52 000526 

53 000532 

54 000534 

55 000536 

56 000540 

57 000542 



004737 002152' 

103004 

112737 000001 OOOOOOG 

000450 



004737 001710' 
103006 



112737 000005 OOOOOOG 
004737 002272 ' 
000437 



SBTTL MSGWT 



Wait for a message 



fhe message wait EM) attempts to get a pending me55age and if none 
is available suspends the job until one becomes available. 



MSGWT: 



See if this is a request to get a message with wait or with a 
completion routine. 



TSTB 
BME 



EMTBLK 
MSRCPL 



; If channel # non-zero then compl routine 
i Read with completion 



See if there is an existing message channel block for the specified 
message channel. 



CALL 
BCC 



MBSRCH 
1* 



.: Search for existing message channel block 
; Br if found one 



There is no existing message channel block. 
Create a new one. 

CALL GETMCB ; Get a new message channel block 

^^'^- 1* 'Br if we got s message control block 

MOVE #ERR01.. INTLRR j Return error code 1 

BR 20* 



Create a message request block for this job 



1*: 



CALL 
BCC 



ADDMRB 
6* 



.;Add message request block 

i Br if we got a message request block 



Error., we could not get a free message request block 



MOVE #ERR05, IWTERR 
CALL FREMCB 
BR 20* 



i Return error code 5 

; See if we need to free the message control bk 



004737 000672 



At this point we have created a message request block and added it to 

the list of pending requt-st blocks for this channel. 

Call MSGACT to see if the request can be satisfied immediately. 

R2 •-- Address of message channel block. 

R4 = Address of message request block. 

6f: CALL MSGACT j Try to satisfy request immediately 

Now wait until message request is satisfied 



113701 
004737 

01 01 or? 

062705 
020415 
00 1 4 i 3 
005715 
001404 
011505 



OOOOOOG 
OOOOOOG 

OOOOOOG 



?*: 



5*: 



MOVB 


CORUSR, Rj 


CALL 


CHKABT 


MOV 


Rl.. R5 


ADD 


#LCMQHD, R5 


CMP 


R4, (R5) 


HEQ 


3* 


TST 


(R5) 


BEG 


4* 


MOV 


(R5),R5 



Get our job index number 

See if we have been aborted 

Get job index number 

Point to list head of completed requests 

Is request block we are waiting for next? 

Br if yes 

Are we at the end of the list? 

Br if yes 

Follow chain to next entry 



TSHSG — 


- TSX~P1 


us Messa 


ge Trans 


MSGWT - 


— Wait 


for a mt> 


ssage 


58 


000544 


062705 


0000000 


59 


000550 


000770 




60 








61 








62 








63 








64 


000552 


012700 


0000000 


65 


000556 


004737 


OOOOOOG 


66 








67 








68 








69 








70 


000562 


000754 




71 








72 








73 








74 








75 


000564 


016415 


0000000 


76 








77 








7S 








79 


000570 


010405 




80 


000572 


004737 


001420' 


81 


000576 


010037 


0000000 


82 








83 








84 








85 


000602 


004737 


002352 ' 


86 








87 








88 








89 


000606 


000207 
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ADD #MR*LNK,R5 
I3R 5$ 



;Point to cell with forward link 
.: Continue follouiing linked list 



Request has not been satisfied yet. 
Suspend job until a message arrives. 



4*: 



MOV 
CALL. 



#S$MSWT, RO 
QHDSPN 



jPut job in message-wait state 
; Change state and suspend job 



Job has been restar'ted. 

See if request has be«?n satisfied. 



BR 



?* 



; Go check again to see if request satisfied 



The request has been satisfied 

Remove the completed request block from the list. 

MOV MB*FLK<R4).. (R5> ; Remove completed request block from list 

Move the message text to the user's buffer 

i Get address of request block 

; Move message to user's buffer 

J Return message length to user in RO 

Free the message request block and associated message text block 

CALL FREMRB i Free message request and text blocks 

Finished 

20«: RETURN 



MOV 


R4, R5 


CALL 


MSGMOV 


MOV 


RO.. URO 



i 
I 
I 
f 

i 
i 
f 

< 

< 
i 

I 
i 
i 
i 
i 
i 
i 



TSMSG " 
MSRCPL 
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4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



000610 



. SBTTL MSRCPL — Rt-ad message with completion routine 

Thir. EMT is used to read a message with a completion routine signaling 
that a message has arrived. 

MSRCPL: 

See if thwre is an existing message channel block for the specified 

met- sage channel. 



000610 004737 001562' 
000614 103007 



CALL 

BCC 



MBSRCH 
1* 



; Search for existing message channel block 
J Br if found one 



000616 004737 002152' 

000622 103004 

000624 112737 000001 OOOOOOG 

000632 000416 



000634 004737 001710' 
000640 103006 



000642 112737 000005 OOOOOOG 
000650 004737 002272 ' 
000654 000405 



000656 013764 OOOOOOC OOOOOOG 6$: 



There is no existing meBE-age channel biocfe. 
Create a new one. 

CALL GETMCB ; Get a new message channel blocit 

BCC 1* ; Br if we got a message control block 

MOVE #ERR01, IWTERR ; Return error code 1 

BR 20* 

Create a message request block for this job 



CALL 
BCC 



ADDMRB 
6* 



Add message request block 

Br if we got a message request block 



Error, we could not get a free message request block 



MOVE #ERR05.. INTERR 
CALL FREMCB 
BR 20* 



J Return error code 1 

; See if we need to free the message control bk 



Store address of user's completion routine in message request block 

MOV EMTBLK-i-EB*RTN> MR*RTN(R4)i Set address of user's compl routine 

At this point we have created a message request block and added it to 

the list of pending request blocks for this channel. 

Call MSGACT to see if the request can be satisfied immediately. 

R2 = Address of messape channel block. 

R4 = Address of message request block. 



000664 004737 000672 ' 



000670 000207 



CALL MSGACT 
J Finis h e d 
20*: RETURN 



J Try to satisfy request immediately 



i 
I 

I 
i 

€ 
€ 



TSMSG — 
MSGACT - 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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. SBTTL MSOACI 



Check message requests that may be satisfied 



MSOACT is called each time? a message is queued for a message channel 
to see if there are any jobs waiting to receive a message from the 
channel . 
If there are waiting users.- the users are activated. 



I n p u t B : 
r;-; -■ Pointer to messatu? channel block. 



000672 010146 
000674 010446 
000676 010546 



000700 016205 OOOOOOG 

000704 00 1 507 

000706 016204 OOOOOOG 

000712 001504 



MSGACT: MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R4, -(SP) 
R5, -<BP) 



MOV 


MB*BUF(R2),R5 


BEO 


9* 


MOV 


MB*RE<3<R2),R4 


BEQ 


9* 



000714 016562 OOOOOOG OOOOOOG 
000722 016462 OOOOOOG OOOOOOG 



000730 010564 OOOOOOG 



000734 116401 OOOOOOG 

000740 062701 OOOOOOG 

000744 005711 

000746 001404 

000750 011101 

000752 062701 OOOOOOG 

000756 000772 

000760 010411 

000762 005064 OOOOOOG 



If there are no requesting users or no pending messages* return. 

.; Are there any pending messages? 
j Br if not 

; Are there any requesting users? 
i Br if not 

There are waiting users and pending messages. 

Remove the 1st message text block and the Ist request block from the 

lists for this message channel. 

MOV MU$FLK(R5), MB«-JUF(R2)i Remove Ist pending message from list 
MOV MR*LNK(R4). MB*REQ<R2); Remove 1st request block 

Assign the message to the request block 

MOV R5, MR*BUF<R4> i Set address of message text block in req blk 

Add the request block to the list of pending request blocks for this job 



MOVB MR*J0B<R4),R1 

ADD #LCMQHD>R1 

4* : TST ( R 1 ) 

BEQ 5* 

MOV ( R 1 ) .. R 1 

ADD #MR*LNK, Rl 

BR 4« 

5$: MOV R4, <R1) 

CLR MR*LNK<R4> 



i Get # of job that is receiving message 

jPoint to list head for job 

i Have we reached end of list? 

> Br if yes 

jLink to next pending request block 

; Point to cell with forward link 

^Continue following chain 

iAdd new block to end of list 

; Say we are at the end of the chain 



If the user wants a completion routine entered to signal message 
reception* queue the completion request. 



000766 026427 OOOOOOG 000001 

000774 10144P 

000776 004737 OOOOOOG 

001002 116400 OOOOOOG 

001006 110061 OOOOOOG 

001012 116061 OOOOOOG OOOOOOG 

001020 112761 OOOOOOG OOOOOOG 

001026 112761 OOOOOOG OOOOOOG 

001034 005760 OOOOOOG 

001040 001403 



CMP 

BLDS 

CALL 

MOVE 

MOVB 

MOVB 

MOVB 

MOVB 

TST 

BEQ 



MR*RTN<R4), #1 

1* 

GETQ 

MR*J0B(R4),R0 

RO, CQ*J0B<R1} 



i Is there a completion routine? 

* Br if not 

J Get a completion queue entry (addr in Rl) 

; Get job index # of requesting job 

j Set job # in completion queue entry 



LPRKRO), CQ*PRUR1)J Set job priority 

#S*IOFNa CQ*RNS<R1) ; Set job execution state for cpl rtn 

#CP$STD* CQ*CP<R1 )i Set standard compl routine class priority 

LITIME<RO> ; Is this an interactive job? 

3* i Br if not 



i 
I 
f 
i 
I 
i 
« 
I 

i 
i 

€ 
I 

i 
i 
i 
I 
€ 
C 
€ 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
S3 
84 
85 
86 



001042 
001050 
001056 
001064 
001072 
001074 
001100 



001102 

001106 
001114 
001116 
001122 



001130 
001132 
001134 
001136 



012761 
013761 
112761 
010104 
004737 
000677 



116401 
026127 
00127.1. 
004737 
000666 



012605 
012604 
012601 
000207 



OOOOOOG 
001140' 
OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 



001124 004737 002272 



OOOOOOG MDVB #S*HICP, CQ*RNS<R1 ) i Set interactive state 

OOOOOOG 3*: MOV #MSOCPL, CQ1iRTN<Rl ) ; Set address of our completion routine 

OOOOOOG MOV @#KPAR5, CQ*PA5<R1); Set PAR 5 mapping value for this region 

OOOOOOG MOVE #QF$SCR. C0*FL.G(R1 ) ; Say compl routine is part of system 

MOV R1.R4 iGet address of completion block for QCOMPL 

CALL QCOMPL ; Queue completion request for waiting job 

BH 2f i See if there are more requests to satisfy 

i 

i There is no completion routine for waiting user. 

i Add completed wait block to pending list for user and 

i restart execution of waiting user. 

i 

1$: MOVE MR*J0B<R4),R1 ; Get waiting user's job index number 

OOOOOOG CMP LSTATE<Rl),#S*MSWTi Is job waiting for a message? 

BNE 2* i Br if not 

CALL QHIPRI ; Restart waiting user 

BR 2* i See if more message requests to satisfy 

> 

i There are no more message requests that can be satisfied. 
i If the message channel block is now idle* free it. 

9*; CALL FREMCB ; Free message channel block if idle 



CALL 


FREMCB 


Finished 




MOV 


<SP)+, R5 


MOV 


( SP ) +, R4 


MOV 


(SP)+,R1 


RETURN 





c 
c 
i 



TSHSG — 
MSGCPL - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
U 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



TSX-Plus Messacie Trans MACRO V05. 04 Fridey 18-Dec-87 16:42 Page 8 
■ Completion routine proce&sing for fneBsaqes 



001140 
001142 
001144 
001146 



001150 
001154 
001160 
001162 
001164 
001172 
001174 
001176 
001202 



001210 
001214 



001216 
001222 
001226 
001232 
001236 
001240 
001244 
001250 
001254 
001262 
001270 
001276 
001302 
001304 
001312 
001320 



. SBTTL MSGCPL — Completion routine processing for messages 

Whenever a message is received by a job that requested a message completion 
routine, two completion routines are triggered. 

■fhe first completion routine executed is this routine (MSGCPL) which is 
the system completion routine that moves the message text to the user's 
buffer and then queues the user's completion routine. 



010146 
010246 
010446 
010546 



1 1 3702 
062702 
011205 
00 1 464 
026527 
101004 
010502 
062702 
000766 



MSGCPL: 



MOV 
MOV 
MOV 
MOV 



R 1 , ~ < SP ) 
R2, -<SP) 
R4. -<SP) 

R5, -<BP) 



f Begin loop to process all completed message request blocks. 



OOOOOOG 
OOOOOOG 



OOOOOOG 000001 



1«: 



OOOOOOG 



MOVE CORUSR, R2 

ADD #LCMQHD, R2 

MOV <R2),R5 

BEQ 9* 

CMP MR«RTN(R5)> #1 

BHI 2* 

MOV R5, R2 

ADD #MR*LNK, R2 

BR 1* 



; Get current job index number 

; Point to compl message request blk Q head 

;GBt address of next completed request block 

; Br if no more to process 

; Does this one have a compl routine? 

; Br if yes 

iLink on and continue search 



We h 
Remo 



ave found a completed message request block for this job. 
ve the completed request block from the list for the job. 



001204 01651;;' OOOOOOG 



2*: MOV MR*LNK<R5), <R2) j Remove request block from list 
; Move the message to the UE-er's buffer. 



004737 
010004 



004737 
010461 
016500 
116000 
006200 
010061 
116500 
110061 
116061 
112761 
112761 
005760 
001403 
112761 
016561 
010104 
004737 



001420' 



CALL 
MOV 



MSGMOV 
RO, R4 



j Move message to user's buffer 
; Save message length in R4 



Queue a completion request to call the user's completion routine 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 3$: 

OOOOOOG 



CALL 

MOV 

MOV 

MOVE 

ASR 

MOV 

MOVB 

MDVB 

MOVB 

MOVB 

MOVB 

TST 

BEQ 

MOVB 

MOV 

MOV 

CALL 



GETQ 

R4, CQ«R0<R1) 

MR*BUF(R5),R0 

MU$JOB<RO).RO 

RO 

RO, CQ*R1<R1) 

MR*J0B<R5),R0 

RO, CQ$J0B<R1) 



; Get a compl 
; Pass messag 
; Get address 
i Get job ind 
; Convert to 
; Pass sendin 
i Get job ind 
i Set job # i 



LPRICRO), CQUPRKRDi Set job 
#S*IOFN, CQ*RNS<R1> i Set job 
#CP$STD> CQ*CP<Rl);Set standa 
LITIME(RO) i Is this an 
3* ; Br if not 

#S$HICP, CQ*RNS<R1); Set inter 
MR*RTN<R5). CQ*RTN(Rl)i Set ad 
R1/R4 ; Get address 

QCOMPL ; Queue compl 



etion queue entry <addr in Rl) 
e length to user in RO 

of message text buffer 
ex # of job that sent message 
job number 
g job number in Rl 
ex # of requesting job 
n completion queue entry 
priority 

execution state for cpl rtn 
rd compl rtn class priority 
interactive job? 

active state 

dress of completion routine 

of completion block for QCOMPL 
etion request for waiting job 



Now free the message request block and the associated message text block 



€ 
I 
i 
i 
€ 

I 
< 
i 
i 
i 
4 
i 
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58 001326 004737 002352' 

59 

60 

61 

62 

63 001332 000712 

64 

65 

66 

67 001334 012600 

68 001336 012604 

69 001340 012602 

70 001342 012601 

71 001344 000207 



CALL 



FREMRB 



J Free the message request block 



Go bacfc and see if thRre btb any more completed message request 
blocks for this job. 

BR 1* 

Finished all completed message request blocks for this job 



9«: 



MOV 


<SP)+, 


R5 


MOV 


<SP)+, 


R4 


MOV 


(SP)+, 


R2 


MOV 


<SP)-+-, 


Rl 


RETURN 
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1 






2 






'•3 






4 






5 






6 






7 






8 






9 






10 






11 


001346 


010346 


12 


001350 


010446 


13 


001352 


010546 


14 






15 






16 






17 


001354 


032703 000001 


IS 


001360 


001007 


19 


001362 


005205 


20 


001364 


000241 


21 


001366 


006005 


22 


001370 


106523 


23 


001372 


012624 


24 


001374 


077503 


25 


001376 


000404 


26 






27 






263 






29 


001400 


004737 0000000 


30 


001404 


110024 


31 


001406 


077504 


32 






33 






34 






35 


001410 


01260;:> 


36 


001412 


012604 


37 


001414 


012603 


38 


001416 


000207 



. SBTTL MSGGET 



Move message text into internal buffer 



MSOGET is called to move a message test string from the user's buffer 
into an internal buffer. 

I n p u t B : 
R3 -- Address of buffer in user's program space 

R4 - Address of internal buffer where message is to be stored 
R5 = Number of bytes to move 



MSGGET: MOV 
MOV 
MOV 



R3, -<SP) 
R4. -<SP) 
R5, -(SP) 



If the user's buffer address is even, do a mord-by-ujord move 

ils user's buffer on word boundary?' 
i Br if not 

J Bound # bytes up to mord multiple 
j Clear for rotate 
j Get # words to move 
2*; MFPD <R3)+ ; Get a word from user's buffer 

; Move to internal buffer 
; Loop if more words to move 



BIT 


#1, R3 


BNE 


3* 


INC 


R5 


CLC 




ROR 


R5 


MFPD 


<R3) + 


MOV 


(SP)+, (R4)-<" 


SOB 


R5,2* 


BR 


9* 



; Do byte-by-byte move 



3*: 



9*: 



CALL 


GETUCH 


MOVB 


RO, (R4> + 


SOB 


R5, 3* 


Finished 




MOV 


(SP)+,R5 


MOV 


<SP)+>R4 


MOV 


(SP)+, R3 


RETURN 





; Get byte from user's buffer 
i Move to internal buffer 
; Loop if more to move 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
47 

48 
49 
50 

51 
52 
53 



001562 010346 
001564 010446 



001566 004737 001646 



001572 013702 
001576 001417 



OOOOOr 



001600 010203 

001602 062703 OOOOOOG 

001606 012700 000012' 

001612 012704 000006 

001616 122023 

001620 001003 

001622 077403 



001624 000241 
001626 000404 



001630 016202 
001634 001361 



001636 000261 



001640 012604 
001642 012603 
001644 000207 



OOOOOOG 



. SBTTL MBSRCH — Se-arch for message channel block 

MBBRCH is called to attempt to find an existing message channel 
block that matches the message channel uihose name is specified 
by the current EMT. 

Outputs: 
C-flag cleared ==> Message channel block found. 

C~flag set ==> Could not find existing message channel block. 
R2 = Address of message channel block if one found. 



MBSRCH: MOV 

MOV 



R3, -<SP) 
R4, -(SP) 



Set up message channel name in CHNNAM 

CALL MSGNAM ; Set up message channel name 

Begin loop to search for existing message channel block 



MOV 
BEQ 



MBMHD, R2 



jPoint to 1st message channel block 
J Br if no message channel blocks 



Compare message channel names 



1*: 



L'f: 



MOV 


R2. R3 


ADD 


#MB*NAM, R3 


MOV 


#CHNNAM, RO 


MOV 


#6, R4 


CMPB 


(R0)+, (R3) + 


BME 


3* 


SOB 


R4,2* 



iOet address of message channel block 

J Point to name in channel block 

; Point to target name 

i Names ars 6 chars long 

; Compare names 

J Br if mi smatch 

J Loop to compare rest of names 



We found the message channel block 

> Signal success 



CLC 
BR 



9* 



Names do not match. 

See if there are more blocks to check. 



3*: MOV MB*FLK<R2),R2 
BNE 1* 



j Get address of next block 

i Loop if there is another one 



We cannot find the message channel block 



8*: 



9i&: 



3EC 



> Signal failure on return 



-inished 




MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


RETURN 
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1 








2 








3 








4 








5 








6 








7 








8 








9 


001646 


010246 




10 


001650 


010346 




11 


001652 


01044v'> 




12 








13 








14 








15 


001654 


013703 


OOOOOOC 


16 


001660 


01270r2 


000012' 


17 


001664 


012704 


000006 


IS 


001670 


004737 


0000000 


19 


001674 


1 1 0022 




20 


001676 


077404 




21 








22 








23 








24 


001700 


012604 




25 


001702 


012603 




26 


001704 


012602 




27 


001706 


000207 





. SBTTL MSGNAM — Sc^t up name of message channel 

MSONAM is called to acquire the message channel name specified 
with the current EM) and move it to a temporary buffer. 

Outputs: 
CHNNAM = Message channel name. 



MSGNAM: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
R4, -(SP> 



If: 



Move message channel name from user's area to internal temp cell 

EMTBLK+EBfNAM. R3; Get pointer to user's name cell 
'?. j Get pointer to temp cell 

j Move 6 chars 

; Get char from user's buffer 
t Move to temp buffer 
j Loop if more to move 



MOV 


EMTBLK+E 


MOV 


#CHNNAM. 


MOV 


#6, R4 


CALL 


GETUCH 


MOVE 


RO. <R2) + 


SOB 


R4. 1* 


F i n i G h e d 




MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


RETURN 
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001710 



001710 
001714 
001716 



001724 

001732 
001740 
001746 
001752 



001756 
001760 
001764 
001766 
001770 
001772 
001776 
002000 
002002 
002006 
002010 



013704 
001436 
016437 



1 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 

49 002012 000261 
50 
51 
52 
53 002014 000207 



SBTTL ADDMRB — Add new message request block 



013764 
013764 
1 1 3764 
00 5064 
005064 



010200 
062700 
005710 
001404 
011000 
062700 
000772 
010410 
005064 
00024 1 
000401 



000006 ' 
OOOOOOG 000006 



ADDMRB creates a new message request block and adds it to the list 
of message request blocks f=or a specified message channel block. 
Information about the current job number* user's buffer address and 
buffer size are set up in the message request block. 

Inputs: 
R2 = Address of message channel block. 

Outputs: 
C-flag cleared ==> We successfully added a message request block. 
C-flag set ==> Error detected while creating message request block. 
R4 = Address of message request block we created. 

ADDMRB: 

Get a message request block off of the free list 

MOV MRBFHD, R4 ; Get message request block off of free list 
BEQ 8* i Br if there are no free blocks 

MOV MR*LNK<R4), MRBFHDi Remove block from free list 



We got a free message request block. 
Initialize with values from EMT argument block. 



OOOOOOC 
OOOOOOC 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV 

MOV 

MOVE 

CLR 

CLR 



EMTBLK+EB«BUF, MR*UBA(R4) ; User's buffer address 
EMrBLK+EB*SIZ,MR*UBS(R4) ; User's buffer size 
CORUSR, MR*J0B<R4) ; Job index number 
MR*RTN<R4) ; Say no completion routine 
MR*BUF<R4) 'Say no associated text block 



Add message request block to tail of request blocks for message channel 



OOOOOOG 



OOOOOOG 



OOOOOOG 



3$: 



MOV 

ADD 

TST 

BEQ 

MOV 

ADD 

BR 

MOV 

CLR 

CLC 

BR 



R2, RO 

#MB*REQ, RO 

<R0) 

3* 

(RO), RO 

#MR*LNK, RO 

2* 

R4, (RO) 

MR*LNK(R4) 

9* 



i Get address of message channel block 

iPoint to list head of request blocks 

i Are we at the end of the list? 

; Br if yes 

j Link to next one on list 

iPoint to cell with forward link 

jContinue following chain 

i Add new block to end of list 

iSay we are at end of list 

; Signal success on return 



Error — No free message request blocks 
S'$: SEC ; Signal failure on return 

F- i n i & h e d 
9*: RETURN 
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1 

2 








3 
4 








b 








6 








7 








8 








9 


002016 


010246 




10 


002020 


010346 




11 


002022 


010446 




12 


002024 


010546 




13 








14 








15 








16 


002026 


016105 


OOOOOOG 


17 


002032 


001410 




18 


002034 


016504 


0000000 


19 


002040 


004737 


002352' 


20 


002044 


010405 




21 


002046 


00 1 372 




22 


002050 


005061 


OOOOOOG 


23 








24 








25 








26 


002054 


013702 


000002 ' 


27 


002060 


001427 




28 


002062 


010203 




29 


002064 


062703 


0000000 


30 


002070 


011305 




31 


002072 


001414 




32 


002074 


120165 


0000000 


33 


002100 


001005 




34 


002102 


016513 


OOOOOOG 


35 


002106 


004737 


002352 ' 


36 


002112 


000766 




37 


002114 


010503 




38 


002116 


062703 


OOOOOOG 


39 


002122 


000762 




40 


002124 


016203 


OOOOOOG 


41 


002130 


004737 


002272 ' 


42 


002134 


010302 




43 


002136 


001352 




44 








45 








46 








47 


002140 


012605 




48 


002142 


012604 




49 


002144 


012603 




50 


002146 


012602 




51 


002150 


000207 





. SBTTL MSGABT — Abort all message requests for a job 

MSGABT is called when a job aborts to clean up all pending message 
requests for the job. 

Inputs: 
Rl = vJob index number of aborting job. 



HSGABT: MOV 
MOV 
MOV 
MOV 



R3, -(SP) 
R4, -(SP) 
R5, -(SP) 



Free all completed message request blocks that are pending for the job 



If: 



MOV LCMQHD(R1)>R5 

BEQ 2* 

MOV MR*LNK(R5),R4 

CALL FREMRB 

MOV R4, R5 

BNE 1 $ 

CLR LCMQHD(Rl) 



;Get addr of 1st completed message request 

i Br if there are none 

J Get address of next request block 

J Free the message request block 

; Get address of next completed block 

i Loop if there is another block to free 

; Say there are no completed requests for job 



Free all pending message requests for this job 



?*: 



7*: 
6*: 



5f : 



4$: 



MOV 

BEQ 

MOV 

ADD 

MOV 

BEO 

CMPB 

BNE 

MOV 

CALL 

BR 

MOV 

ADD 

BR 

MOV 

CALL 

MOV 

BNE 

F i n i & h e d 



9*: 



MOV 
MOV 
MOV 
MOV 
RETURN 



MBMHD, R2 

9* 

R2, R3 

#MB*REQ, R3 

(R3), R5 

4* 

Rl, MR$J0B(R5) 

5* 

MR*LNK(R5), (R3) 

FREMRB 

6* 

R5, R3 

#MR*LNK, R3 

6* 

MB*FLK(R2),R3 

FREMCB 

R3, R2 

7* 



(SP)+, R5 
(SP)+, R4 
(SP)+, R3 
(SP)+, R2 



Get addr of 1st message channel block 

Br if there are none 

Get address of message channel block 

Get address of cell with ptr to request blk 

Get address of next message request block 

Br if there are no more 

Is this message request for aborting job? 

Br if not 

Remove message block from list 

Free the message request block 

Go see if there are more to free 

Get address of current block 

Point to cell with forward link 

Keep looking for more requests for this job 

Get pointer to next message channel block 

See if we need to free current channel block 

Get address of next message channel block 

Br if more message channels to check 



€ 
t 



TSMSG — 
GETMCB - 



3 

4 

5 

h 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

£:l X 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 

45 
46 
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002152 



002152 013702 000004' 

002156 001427 

002160 016237 OOOOOOS 000004' 



002166 005062 OOOOOOG 

002172 005062 OOOOOOG 

002176 013762 000012' OOOOOOG 

002204 013762 000014' 000002G 

002212 013762 000016' 000004G 



002220 013762 000002' OOOOOOG 
002226 1 0237 000002 ' 



002232 000241 
002234 000401 



002236 000261 



. SBTTL GETIiCB ■ — Get a new message control block 

GETMCB is called to qet a new message control block. 

Inputs: 
CHWNAM = Message channel name string 

Outputs: 

C flag cleared ==> Message control block gotten. 

C-flag set ==.> Could not get a free message control block. 
R2 = Address of message control block. 

GETMCB : 

Get Ist message control block off of free list 

MOV MCBFHD, R2 ; Get 1st free message control block 
BEQ 8* i Br if there are no free message blocks 

MOV MB*FLK<R2),MCBFHD ; Remove block from free list 

We got a free message control block. 
Initialize it. 



CLR 
CLR 
MOV 
MOV 
MOV 



MB*BUF(R2) ; No pending messages 
MB$REQ(R2) ; No pending message requests 
CHNNAM, MB*NAM(R2); Set 1st 2 chars of name 
CHNNAM+2, MB$NAM+2(R2); Set 2nd 2 chars of name 
CHNNAM+4, MB$NAM+4<R2)J Set 3rd 2 chars of name 



Add message channel block to list of active message channels 

MOV MBMHD, MB*FLK<R2); Add neiu block to list of active blocks 
MOV R2, MBMHD » Put new block at head of list 



We successfully got a block 



CLC 
BR 



; Signal success on return 



9* 



There are no free message control blocks 



8*: 



SEC 



> Signal failure on return 



002240 000207 



Finished 
9*: RETURN 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 



SBTTL GETHTB 



Get a free message text block 



002242 



002242 013704 000010' 

002246 001407 

002250 016437 OOOOOOG 000010' 

002256 005064 OOOOOOG 

002262 000241 

002264 O00401 



002266 000261 



GETMTB is called to try to acquire a free message text block. 
Message text blocks are used to hold message text strings. 

Outputs: 
C -flag cleared ==> A free message text block was gotten. 
C-flag set ==> There ars no free message text blocks. 
R4 = Address of message text block if one was gotten. 

GETMTB: 

Get 1st message text block off of free list 



MOV 
BEQ 
MOV 
CLR 
CLC 
BR 



MTBFHD. R4 i Get pointer to Ist free message text block 
1* ; Br if there are no free blocks 

MU*FLK(R4), MTBFHD ; Remove block from free list 
MU*FLK<R4) 'Say block is not part of any list 

.; Signal success on return 
9* 



There are no free message text blocks 



28 002270 000207 



9?^: 



Finished 

RETURN 



i Signal failure on return 
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1 






2 






3 






4 






5 






6 






7 






e 






9 






10 






11 






12 002272 






13 






14 






15 






16 002272 


005762 


0000000 


17 002276 


001024 




18 002300 


005762 


OOOOOOG 


19 002304 


001021 




20 






21 






22 






23 






24 002306 


012700 


OOOOOOC 


25 002312 


020260 


OOOOOOG 


26 002316 


001404 




27 002320 


016000 


OOOOOOG 


28 002324 


00137;:* 




29 002326 


000403 




30 002330 


016260 


OOOOOOG 


31 






32 






33 






34 002336 


013762 


000004 ' 


35 002344 


010237 


000004 ' 


36 






37 






38 






39 002350 


000207 





. SBTTL FREHCB 



Free s message control block 



FREHCB is called to attempt to return a message control block to the 
free list. This routine checks to see if there are any pending 
messages for the message channel or pending message requests. 
If there are any pending messages or message requests, this routine 
returns without freeing the message control block. 

Inputs: 
R2 ■- Address of message control block to be freed. 

FREMCB: 

See if this message control block is idle 



TST MB*BUF<R2) 

BNE 9* 

TST MB*REQ(R2) 

BME 9* 



i Any pending messages? 

j Br if yes 

j Any pending message requests? 

J Br if yes 



OOOOOOG 2*; 



This message control block is idle. 

Remove it from the active list. 

MOV #MBMHD-MB$FLK, RO; Point to active list head 

1*: CMP R2, MB$FLK<RO) i Are we next block on list? 

BEG 2* ; Br if yes 

MOV MB*FLK(RO), RO ; Chain to next block 

BNE 1$ ; Go check it 

BR 3* » Block is not on active list 

MOV MB*FLK(R2),MB*FLK<R0); Remove from active list 



Return it to free list. 



OOOOOOG 3$: 



MOV 
MOV 



MCBFHD, MB$FLK<R2); Add block to free list 
R2, MCBFHD 



F i n i £ h e d 
9$: RETURN 
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t 

c 



1 

2 

3 

4 

5 

6 

7 

8 

9 002352 
10 
11 
12 

13 002352 016500 OOOOOOG 

14 002356 001407 

15 002360 013760 000010' OOOOOOG 

16 002366 010037 000010' 

17 002372 00506D OOOOOOG 
18 



. SDTTL FREMRB — free a message request block 



; FREMRB is called tn free a message request block. 
; It also frees any associated message text block. 

i Inputs; 

> R5 = Address of message request block being freed. 

i 

FREMRB: 

See if there is an associated message text block that needs to be freed 



MOV 

BEQ 
MOV 
MOV 

CLR 



19 








i Free the mes 


20 








i 


21 


002376 


0137615 


000006 ' 


OOOOOOG 1$: MOV 


22 
23 
24 


002404 


010537 


000006 ' 


MOV 








> 

} Finished 


25 








j 


26 


002410 


000207 




RETURN 


27 








f 


28 








i Top of TSMSG 


29 








f 


30 


002412 






MSGTOP : 


31 




000001 




. END 


Errors C 


etec ted 










MR*BUF<R5) .• RO ; Is there an associated message text block? 

1* / Br if not 

MTBFHD, MU*FLK<RO)i Add message text block to free list 

RO, MTBFHD 

MR*BUF(R5) 'Say message text block has been freed 



MRBFHD, MR$LWK(R5)i Add block to free list 
R5, MRBFHD 



*** Assembler statistirf- 



Work file reads 
Work file mrites 
Size of ujork file 
Size of core pool 
Operating system 







64 Words < 1 Pages) 

17V;20 Words < 70 Pages) 

RT -.t i 



Elapsed time; 00:00:13.40 

DK; TSMSG, LP: TSMSG^^DK: TSJMSG, MAC/C/N: SYM 



TSHSG - 


- TSX-Plu 


a MesBaqe T 


ran a MACRO 


V05. 04 


Friday 18- 


-Dec-S7 16: 


42 P. 


3cie 


Cross r 


ef erence 


table <C:REF 


V05. 04 ) 












AFJDMRB 


5-30 


6-24 


13~16# 












CHKABT 


1-28 


5~t>0 














CHNIMAM 


i-4a# 


1 1 -28 


12-16 


1 5-26 


1 5-27 


1 5-28 






CORUSR 


1-25 


3-49 


5-49 


8-16 


1 3-29 








CPiSSTD 


1-32 


7-55 


8-48 












C<5*CP 


1-32 


7-55* 


8~4S* 












C«*FLe 


1-29 


7-61+!- 














CQ*JOB 


1-31 


7-52*- 


8-45* 












CQ*PA5 


1-32 


7-60* 














CQ*PRI 


1 -27 


7-53K- 


B-46* 












CQ$RO 


1-28 


8-39 s 














CQ-$Ri 


1-32 


8-43* 














CO$RNS 


1-31 


7-54 1:- 


7-58* 


8-47* 


8-51* 








CQ*RTN 


1-29 


7-59i^ 


8-52* 












EB*BUF 


1-24 


3-61 


1 3-27 












EB*NAM 


1-26 


12-15 














EBfRTN 


1-24 


6-35 














EB$SIZ 


1-28 


3-53 


1 3-28 












EMTBLK 


1-24 


3-53 


3-61 


5-11 


6-35 


12-15 


13- 


"27 


ERROl 


l-36# 


3-21 


5-25 


6-19 










ERR02 


l-37# 


3-29 














ERR 03 


1~38# 


4-23 














ERR04 


l-39# 


3-56 


10-29 












ERR05 


l-40# 


5-35 


6-29 












FREMCB 


3-30 


5-36 


6-30 


7-79 


14-41 


17-12# 






FREMRB 


5-85 


8-58 


14-19 


14-35 


1 8-9# 








GETMCB 


3-19 


5-23 


6-17 


15"13# 










GETMTB 


3-27 


16-1 1# 














GETQ 


1-27 


7-50 


8-38 












GETUCH 


1-26 


9-29 


12-18 












INTERR 


1-28 


3-21 «■ 


3-29* 


3-56* 


4-23* 


5-25* 


5- 


-35* 


KPAR5 


i-32 


7-60 














LCHQHD 


1-31 


5-52 


7-36 


8-17 


14-16 


14-22* 






LITIHE 


1-27 


7-56 


8-49 












LPRI 


1-30 


1 -30 


7-53 


8-46 










LSTATE 


1-31 


7-71 














MB«*S2 


1-28 


2-22 


2-26* 












MB$BUF 


1-24 


3-39 


4-17 


7-17 


7-26* 


1 5-24* 


17 


-16 


MB*FLK 


1-24 
1 7-30 


1-25 
17-30* 


2-23* 
17-34* 


2-26* 


5-75 


11-42 


14- 


-40 


MB^NAM 


1-26 


11-27 


1 5-26* 


1 5-27* 


1 5-28* 








MB*REQ 


1-27 


7-19 


7-27* 


13-36 


14-29 


15-25* 


17 


-18 


MBHHD 


1-20 


l-44# 


11-21 


14-26 


1 5-32 


1 5-33* 


17- 


-24 


MBSRCH 


3-13 


4-11 


5-17 


6-11 


11-12# 








MCBFHD 


i-45# 


2-19* 


15- •17 


15-19* 


17-34 


17-35* 






MR**SZ 


1-30 


2-34 


2-38* 












MR*BUF 


1-30 


7-31* 


8-40 


10-21 


13-31* 


18-13 


18- 


-17* 


MR$JOB 


1-25 


7-35 


7-51 


7-70 


8-44 


13-29* 


14- 


-32 


MR*LNK 


1-25 
14-18 


2-35* 
14-34 


2-38* 
14-38 


5-58 
18-21* 


7-27 


7-40 


7- 


-43* 


MR*RTN 


1-25 


6-35* 


7-48 


8-20 


8-52 


13-30* 






HR*UBA 


1-31 


10-24 


13-27* 












MR*UBS 


1-31 


10-25 


13-28* 












MRBFHD 


l-46# 


2-32* 


13-20 


13-22* 


18-21 


18-22* 






MSEND 


1-19 


3-{># 














HSGABT 


1-20 


14-941 















13-28 



6-19* 6-29* 10-29* 

€ 

i 

4 

15-19 15-32* 17-24 17-25 17-27 



i 

8-23 8-29 13-22 13-40 13-43* 

t 

( 



TSHSG — TSX-PluB Messacje Trans MACRO V05. 04 Friday 18-Dec-a7 16:42 Paye S- 
Cross reference table <CREF V05. 04) 



MSGACT 


3-70 


5-45 


6-43 


7-1 1# 




MSGCK 


1-19 


4-7# 








MSGCPL 


7-59 


8-9# 








MSGGET 


3-62 


9-1 1# 








MSGINI 


1-20 


2-0« 








MSGMOV 


5-80 


8-33 


10-12*i 






MSGNAM 


11-17 


i2-9# 








MSGTOP 


1-20 


2-15 


18~30# 






MSGWT 


1-19 


4- IB 


5"6# 






MSRCPL 


5-12 


6-6i{ 








MTBFHD 


l-47# 


2-45* 


16-15 


16-17* 


18-15 


MU*FLK 


1-31 


2-57* 


2-61* 


3-43 


7-26 


MU*JOB 


1-32 


3-4'/K- 


8-41 






MU*SIZ 


1-27 


3-58* 


10-22 






MU*TXT 


1-29 


2-47 


3-60 


10-23 




PUTUCH 


1-26 


10-55 








QCDMPL 


1-27 


7-63 


8-54 






QF^SCR 


1-25 


7-61 








QHDSPN 


1-28 


5-65 








QHIPRI 


1-29 


7-73 








S*HICP 


1-26 


7-58 


8-51 






S*IOFN 


1-26 


7-54 


8-47 






S*MSWT 


1-30 


5-64 


7-71 






TSMSG 


1~15# 


1-19 








URO 


1-29 


4~y4*- 


5-81* 






VMAXMC 


1-24 


2-L'O 








VMSCHR 


1-29 


2-46 


3-54 


3-57 




VMXMRB 


1-30 


2-30 








VMXMSG 


1-30 


2-42 


2-44* 


2-56* 




VPAR6 


1-29 


2-49 









18-16* 

16-17 16-18* 18-15* 



